home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xcmd / xrulesde.sit / Xrules™ Demo / card_40312.txt < prev    next >
Encoding:
Text File  |  1991-06-24  |  1.1 KB  |  62 lines
  1. -- card: 40312 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 28647
  5. -- name: sample RB
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=5 top=5 right=317 bottom=507
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 22
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: RB
  20.  
  21.  
  22. -- part contents for card part 1
  23. ----- text -----
  24.   fact
  25.     passengers, wheels, "used for cargo", make
  26.  
  27.   rule Corvette
  28.   if 
  29.     fact car and
  30.     fact make = Chevy and
  31.     fact passengers = 2
  32.   then 
  33.     put Corvette into fact model
  34.     go to card Corvette
  35.  
  36.   rule Camaro
  37.   if 
  38.     fact car and
  39.     fact make = Chevy and
  40.     fact passengers = 4
  41.   then 
  42.     put Camaro into fact model
  43.     go to card Camaro
  44.  
  45.   rule Mustang
  46.   if 
  47.     fact car and
  48.     fact make = Ford
  49.   then 
  50.     put Mustang into fact model
  51.     to to card Mustang
  52.  
  53.   rule "car 1"
  54.   if 
  55.     fact wheels = 4 and
  56.     fact passengers <= 4 and
  57.     fact "used for cargo" = no
  58.   then 
  59.     put true into fact car
  60.   else
  61.     put false into fact car
  62.